home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write3 / Config / MAILER.config < prev    next >
Encoding:
Text File  |  1996-09-27  |  7.7 KB  |  282 lines
  1. /*
  2.  *  $VER: MAILER.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
  3.  *
  4.  *  Zum Schreiben von EMails
  5.  *  Wenig Menüs, WordWrap...
  6.  *
  7.  */
  8.  
  9. BEGIN
  10.  
  11.   ;
  12.  
  13.  
  14. /* Setzen der internen Variablen */
  15. /* ----------------------------- */
  16.  
  17. /* Lokal */
  18.  
  19. /* Standardeinstellungen */
  20.  
  21. SETVAR "_WordDef"              2   /* Wie wird ein Word definiert ??? */
  22.  
  23.  
  24. SETVAR "_AutoIndent"           5
  25. SETVAR "_ReadTabs"          TRUE   /* Konvertieren ja/nein ?          */
  26. SETVAR "_WriteTabs"        FALSE   /*       "       "  "              */
  27. SETVAR "_CaseSense"         TRUE
  28. SETVAR "_Optimize"          TRUE
  29. SETVAR "_ShowSpace"        FALSE
  30. SETVAR "_ShowEOL"          FALSE
  31. SETVAR "_FRPattern" "~(#?(.info|.bak))"
  32. SETVAR "_OverwriteIcon"    FALSE
  33. SETVAR "_WriteIcon"        FALSE
  34. SETVAR "_WordWrap"             2
  35.  
  36. /* Setzen der User-Funktionen */
  37. /* -------------------------- */
  38.  
  39. /*
  40.  * Die Diese Routine wird bei App-Aktionen
  41.  * mit dem Filenamen in _RS aufgerufen
  42.  */
  43.  
  44. SETUSERFKT 0 SETVAR "_Path" _RS
  45.              NewEd ""
  46.              Window 0 0 0 0
  47.              Open _Path;
  48.  
  49. /*
  50.  * Diese Routine wird aufgerufen,
  51.  * wenn das Closing-Gadgetgedrückt wird
  52.  */
  53.  
  54. SETUSERFKT 1 IF Compare FALSE _changed;
  55.                NOP;
  56.                Ask ("$_FileName$"\nist verändert worden !\n)+
  57.                     "Text geht verloren !"
  58.                     "_Ab_brechen !^|Ab_speichern & Ende*|_Ende"
  59.               Break EQUAL _RN 0;
  60.               IF Compare _RN 1;
  61.                 Save _FileName;
  62.                 NOP;
  63.               QuitEd;
  64.  
  65. /* Die Tastaturbelegung */
  66. /* -------------------- */
  67.  
  68. CLEARKEYS
  69.  
  70. KEY "help"
  71.     MessageOK "Cursorkeys         : Bewegung im Text\n"+
  72.               "Shift hoch/runter  : Seite hoch/runter\n"+
  73.               "Shift links/rechts : Erster/letzter Buchstabe in d. Zeile\n"+
  74.               "alt   hoch/runter  : Erste/letzte Zeile\n"+
  75.               "alt   links/rechts : letztes/nächstes Wort\n"+
  76.               "<-                 : Backspace\n"+
  77.               "Del                : Delete"
  78.     MessageOK "Shift Del : Lösche bis EOL\n"+
  79.               "Ctrl  y   : Lösche Zeile\n"+
  80.               "F1-F5     : Setze Textmarke\n"+
  81.               "f1-f5     : Springe zu Textmarke\n"+
  82.               "Escape    : Iconify";
  83.  
  84. KEY "shift help"
  85.     Help;       /* Help-Menu */
  86.  
  87. /* classic keys */
  88.  
  89. KEY "tab"       Tab 0;
  90. KEY "shift tab" BackTab;
  91.  
  92. KEY "return"       Return;
  93.  
  94. KEY "delete"       Delete;
  95. KEY "shift delete" DeleteToEOL;
  96. KEY "control y"    DeleteLine;
  97.  
  98. KEY "backspace"    BackSpace 0;
  99.  
  100. KEY "right" CursorRight 0;
  101. KEY "left"  CursorLeft 0;
  102. KEY "up"    CursorUp 0;
  103. KEY "down"  CursorDown 0;
  104.  
  105. KEY "shift up"    PageUp   90;
  106. KEY "shift down"  PageDown 90;
  107. KEY "shift right" Goto @EOL @EOL;
  108. KEY "shift left"  Goto @SOL @SOL;
  109.  
  110. KEY "alt up"  Goto _xPos 1;        /*  zur 1. Zeile oder         */
  111. KEY "alt down" Goto _xPos _Length;  /* zur letzten Zeile springen */
  112.  
  113. KEY "alt left"  LastWord;
  114. KEY "alt right" NextWord;
  115.  
  116. /* Belegung der Maus */
  117.  
  118. KEY "rawmouse lbutton mouse_leftpress" GOTOMOUSE;
  119. KEY "rawmouse rbutton lbutton mouse_rightpress" UNMARK;
  120. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress" MACROPANNEL;
  121. DOUBLEKEY "rawmouse lbutton mouse_leftpress"  "rawmouse lbutton mouse_leftpress" IF {@CLEARRN} GOTOMOUSE {@SAMEPOS}; SETMARK; GOTOMOUSE;;
  122.  
  123. /* Die Menüs */
  124. /* --------- */
  125.  
  126. CLEARMENU
  127.  
  128. MENU   "PROJEKT"
  129.   ITEM "Neu" ""
  130.        IF Compare FALSE _changed;
  131.          NOP;
  132.          Ask ("$_FileName$"\nist verändert worden !\n)+
  133.               "Text geht verloren !"
  134.               "Ab_brechen !^|_Speichern & löschen*|_Löschen"
  135.          Break EQUAL _RN 0;
  136.          IF Compare _RN 1;
  137.            Save _FileName;
  138.            NOP;
  139.        New
  140.        SetTitle "Text gelöscht." FALSE;
  141.   ITEMBAR
  142.   ITEM "Iconify" "escape"
  143.        Iconify;
  144.   ITEM "Über WRITE" "!"
  145.        About;
  146.   ITEMBAR
  147.   ITEM "Speichern & Verlassen" "E"
  148.        IF Compare FALSE _changed;
  149.          NOP;
  150.          Save _FileName;
  151.        QuitEd;
  152.   ITEM "Ende" "Q"
  153.        IF Compare FALSE _changed;
  154.          NOP;
  155.          Ask ("$_FileName$"\nist verändert worden !\n)+
  156.               "Text geht verloren !"
  157.               "Ab_brechen !^|_Speichern & Ende*|_Ende"
  158.          Break EQUAL _RN 0;
  159.          IF Compare _RN 1;
  160.            Save _FileName;
  161.            NOP;
  162.        QuitEd;
  163.  
  164. MENU   "EDIT"
  165.   ITEM "Setze Marke" "M"
  166.        SetTitle "Marke gesetzt." FALSE
  167.        SetMark;
  168.   ITEM "Lösche Marke" "U"
  169.        Unmark;
  170.   ITEMBAR
  171.   ITEM "Ausschneiden" "X"
  172.        CopyBlock 0
  173.        DeleteBlock;
  174.   ITEM "Kopieren" "C"
  175.        CopyBlock 0
  176.        SetTitle "Block kopiert." FALSE;
  177.   ITEM "Einfügen" "V"
  178.        InsertBlock 0;
  179.   ITEM "Löschen" ""
  180.        DeleteBlock;
  181.   ITEM "Füge File ein..." ""
  182.        GetFile "" ""
  183.        LoadBuffer _Path 0
  184.        InsertBlock 0;
  185.   ITEMBAR
  186.   ITEM "Clipboard »" ""
  187.        NOP;
  188.     SUB "Ausschneiden nach Clip" "alt x"
  189.         CopyBlock 0
  190.         BufferToClip 0   0
  191.         DeleteBlock;
  192.     SUB "Nach Clip kopieren" "alt c"
  193.         CopyBlock 0
  194.         BufferToClip 0   0
  195.         SetTitle "Block kopiert." FALSE;
  196.     SUB "Einfügen aus Clip" "alt v"
  197.         ClipToBuffer 0   0
  198.         InsertBlock 0;
  199.     SUB "Buffer nach Clip" ""
  200.         BufferToClip 0   0;
  201.     SUB "Clip nachBuffer" ""
  202.         ClipToBuffer 0   0;
  203.  
  204. MENU "UTLITIES"
  205.   ITEM "Schreibe Zeichen..." ""
  206.        GetNumber "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  207.        WriteChar _RN;
  208.   ITEM "Zeige Zeit & Datum" "T"
  209.        MessageOK "Aktuelle Zeit ist :\n$_Time$";
  210.   ITEMBAR
  211.   ITEM "UPPER word" "^"
  212.        UpperBlock @SOW @SOW @EOW @EOW;
  213.   ITEM "lower word" "#"
  214.        LowerBlock @SOW @SOW @EOW @EOW;
  215.   ITEMBAR
  216.   ITEM "Match Bracket" "("
  217.        MatchBracket;
  218.  
  219. MENU   "SEARCH"
  220.   ITEM "Zähle..." ""
  221.        GetFindReplace _FindString ""
  222.        If Compare _Marked 2;
  223.          Find @MARKA  @MARKA  @MARKB @MARKB {@COUNT};
  224.          Find @CURSOR @CURSOR @EOT   @EOT   {@COUNT};
  225.        MessageOk "\"$_FindWord$\"\nwurde $_RN$ mal gefunden !";
  226.   ITEMBAR
  227.   ITEM "Finde..." "F"
  228.        GetFindReplace _FindString ""
  229.        If Compare _Marked 2;
  230.          Find @MARKA  @MARKA  @MARKB @MARKB;
  231.          Find @CURSOR @CURSOR @EOT   @EOT  ;;
  232.   ITEM "Finde noch einmal" "N"
  233.        If Compare _Marked 2;
  234.          Find @MARKA  @MARKA  @MARKB @MARKB;
  235.          Find @CURSOR @CURSOR @EOT   @EOT  ;;
  236.   ITEMBAR
  237.   ITEM "Ersetze..." "Y"
  238.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  239.        If Compare _Marked 2;
  240.          Replace @MARKA  @MARKA  @MARKB @MARKB;
  241.          Replace @CURSOR @CURSOR @EOT   @EOT  ;;
  242.   ITEM "Ersetze noch einmal" "Z"
  243.        If Compare _Marked 2;
  244.          Replace @MARKA  @MARKA  @MARKB @MARKB;
  245.          Replace @CURSOR @CURSOR @EOT   @EOT  ;;
  246.   ITEM "Ersetze alle..." ""
  247.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  248.        If Compare _Marked 2;
  249.          Replace @MARKA  @MARKA  @MARKB @MARKB {@ALL};
  250.          Replace @CURSOR @CURSOR @EOT   @EOT   {@ALL};
  251.        Flash;
  252.   ITEM "Ersetze alle schnell..." ""
  253.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  254.        Silent
  255.        If Compare _Marked 2;
  256.          Replace @MARKA  @MARKA  @MARKB @MARKB {@ALL @NOREQ};
  257.          Replace @CURSOR @CURSOR @EOT   @EOT   {@ALL @NOREQ};
  258.        Window 0 0 0 0
  259.        MessageOk (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.);
  260.   ITEMBAR
  261.   ITEM "Springe zu Zeile..." "G"
  262.        GetNumber "Springe zu Zeile :" _yPos
  263.        Goto _xPos _RN;
  264.   ITEMBAR
  265.   ITEM "Zeige Index..." "J"
  266.        GetString "Bitte geben sie das Suchmuster\n"+
  267.                  "für den Index an :" "#?#?"
  268.        ShowIndex _RS {@CASE};
  269.  
  270. MENU   "HELP"
  271.   ITEM "Help..." "Shift Help"
  272.        Help;
  273.   ITEM "Zeige Variablen" ""
  274.        ShowVars;
  275.   ITEM "Zeige Funktionen" ""
  276.        ShowFunctions;
  277.   ITEM "Zeige ASCII-Codes" ""
  278.        ShowASCII;
  279.   ITEM "Hilfe zu Stichwort..." "?"
  280.        GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
  281.        GuideHelp _RS;
  282.